home *** CD-ROM | disk | FTP | other *** search
/ WWII Attack! from Pearl Harbor to Potsdam / WWII Attack - From Pearl Harbor to Potsdam - Disc 3.iso / pc / us / shared.cst / 00026_Script_26 < prev    next >
Text File  |  1999-11-23  |  1KB  |  42 lines
  1.  
  2.  
  3. on TPRINT
  4.   
  5.   
  6.   global gXobject
  7.   global comp
  8.   if comp = 1 then 
  9.     openxlib "Print_X.DLL"
  10.     put PrintY(mNew) into gXObject
  11.   else 
  12.     openxlib "Print_X"
  13.     put Print_X(mNew) into gXObject
  14.   end if
  15.   
  16.   
  17.   put the castNum of sprite 2 into ccas
  18.   put the text of cast ccas into thetext
  19.   put " " into NEWTEXT
  20.   put " " into textToPrint
  21.   gxObject(mSetBodyTextMargin, 30, 30)
  22.   gXObject(mSetBODYTop, 55)
  23.   gXObject (mSetHeaderTop2,700)
  24.   put " " into thefooter 
  25.   repeat while the number of words in theText >=1
  26.     put word 1 to  435 of theText into textToPrint
  27.     PUT  gXObject(mPrintPage, "", thefooter, textToPrint, "", 0) INTO PRINTERRESULT
  28.     delete word 1 to 435 of theText
  29.     --  put " " into NEWTEXT
  30.   end repeat
  31.   -- put thetext into textToPrint
  32.   -- REPEAT WITH NUMB= 1 TO 500
  33.   -- put WORD 1  of theText AFTER textToPrint
  34.   --  PUT " " AFTER TEXTTOPRINT
  35.   --  DELETE WORD 1 OF THETEXT
  36.   -- END REPEAT
  37.   
  38.   -- PUT  gXObject(mPrintPage, "", thefooter, textToPrint, "", 0) INTO PRINTERRESULT
  39.   --  gXobject(mDispose)
  40.   --end
  41.   gXobject(mDispose)
  42. end